home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 September / 1987-09.d64 / prg appender (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  456b  |  11 lines
  1. 0 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 1 bu=631:bc=198:s1=43:s2=44:a=peek(s1):b=peek(s2):c=peek(45):d=peek(46)
  3. 2 input"[147][144]program to append";prog$:ifprog$="quit"then9
  4. 3 open15,8,15,"i0:":open1,8,8,prog$+",p,r":input#15,e,e$
  5. 4 close1:close15:ifethenprint"error:"e;e$:end
  6. 5 print"[147]load"chr$(34)prog$chr$(34)",8"
  7. 6 print"poke"s1","a":poke"s2","b"":pokebu,13:pokebu+1,13:pokebc,2
  8. 7 ifc>1thenpokes1,c-2:pokes2,d:end
  9. 8 pokes1,c+253:pokes2,d-1:end
  10. 9 print"[147]":forj=0to9:printj:pokebu+j,13:next:pokebc,10:print"":end
  11.